00200	C  THIS PLOTS ON CALCOMP (OR TO XGP) STUFF FROM MDSK.DMP(DO PRNTX]
00400	C  LOAD WITH MSSIO.FAI(USES OK CHANS.) & LOOK.FAI (FOR UNPAC ROUTINE)
00600		COMMON I,J,K
00800		DIMENSION M(128)
01000		ISZ=0
01200		SZ=-1
01400	105	TYPE 100
01600		ACCEPT 101,NM
01800		IF(NM.NE.'SIZE')GO TO 102
02000		TYPE 103
02200	103	FORMAT(' TYPE SIZE -- '$)
02400	104	FORMAT(F)
02600		ACCEPT 104, SZ
02610		TYPE 500
02620		ACCEPT 101,NOUT
02630	500	FORMAT(' TYPE OUTPUT NAME -- '$)
02700		CALL PUTFIL(NOUT)
02800		GO TO 105
03000	102	IF(NM.EQ.' ')NM='PLT'
03200	100	FORMAT(' TYPE FILE NAME  '$)
03400	101	FORMAT(A5)
03600		IF(SZ)CALL PLOTS(N)
03800		CALL GETFI2(NM)
04000	1	CALL FASTI2(M,128)
04200		DO 3 JJ=2,M(1)+1
04400		CALL UNPAC(M(JJ),I)
04600		IF(SZ)GO TO 300
04800		I=I*SZ
05000		J=J*SZ
05200		CALL PAC(M(JJ),I)
05400	CZZZZZZZ	CALL PAC(M(JK),I)
05600	CZZZZZZZ	IF(M(JK).NE.ISZ)JK=JK+1
05800		GO TO 3
06000	CC	J=M(JJ)
06200	CC	K=J/100000000
06400	CC	J=J-K*100000000
06600	CC	I=J/10000
06800	CC	J=J-I*10000-5000
07000	CC	I=I-5000
07200	CC	K=K-4
07400	C  I  IS FIRST OF THREE LOCATIONS.
07600	300	CALL PLOT(I,J,K)
07800	3	CONTINUE
08000		IF(SZ)GO TO 400
08010		CALL FASTOU(M,128)
08210	400	IF(M(1).EQ.127)GO TO 1
08300		TYPE 2
08400	2	FORMAT(' DON''T FORGET "PLT.DMD" ON DSK.')
08600		END